home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00007_JiggleSprite Class.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  1.4 KB  |  73 lines
  1. --
  2. -- JiggleSprite
  3. --
  4.  
  5. -- this actorList class will jiggle the passed sprite.
  6.  
  7.  
  8. property mySprite
  9. property myLoc
  10. property myRange
  11. property myDelay
  12. property lastUpdate
  13. property ancestor
  14.  
  15.  
  16. on new me, whatSprite
  17.   set mySprite = whatSprite
  18.   puppetSprite mySprite, TRUE
  19.   
  20.   set myLoc = the loc of sprite mySprite
  21.   set myRange = 6
  22.   set myDelay = 10
  23.   
  24.   set ancestor = 0
  25.   
  26.   return me
  27. end
  28.  
  29. on stepFrame me
  30.   set deltaH = 0
  31.   set deltaV = 0
  32.   
  33.   if voidP(lastUpdate) then 
  34.     set lastUpdate = the timer
  35.   end if
  36.   
  37.   if the timer > (lastUpdate + myDelay) then
  38.     if random(20) > 10 then
  39.       
  40.       -- roll the dice to see which component we change  
  41.       if random(10) < 5 then
  42.         set deltaH = random(myRange)
  43.       end if
  44.       
  45.       if random(10) < 5 then
  46.         set deltaV = random(myRange)
  47.       end if
  48.       
  49.     else
  50.       -- roll the dice to see which component we change  
  51.       if random(10) > 5 then
  52.         set deltaH = -(random(myRange))
  53.       end if
  54.       
  55.       if random(10) > 5 then
  56.         set deltaV = -(random(myRange))
  57.       end if  
  58.     end if
  59.     
  60.     set the locV of sprite mySprite = the locV of myLoc + deltaV
  61.     set the locH of sprite mySprite = the locH of myLoc + deltaH
  62.     updateStage
  63.     
  64.     set lastUpdate = the timer
  65.   end if
  66. end
  67.  
  68. on destruct me
  69.   puppetSprite mySprite, FALSE
  70.   if objectP (ancestor) then destruct (ancestor)
  71.   set ancestor = 0
  72. end
  73.